10 PRINT"WAIT..."
20 A=PEEK(55)+256*PEEK(56)
30 A=A-160:HB=INT(A/256)
40 POKE55,A-256*HB:POKE56,HB
50 POKE766,A-256*HB:POKE767,HB
60 RESTORE:I=0:T=0
70 READV:T=T+V:I=I+1:IFI<159THEN70
80 IFT<>19491THENPRINT"ERROR IN DATA":END
90 RESTORE:I=0
100 READV:POKEA+I,V:I=I+1:IFI<159THEN100
110 A=A+100:HB=INT(A/256):POKE1020,76
120 POKE1021,A-256*HB:POKE1022,HB
130 PRINT"IMPATIENT INPUTS IN MEMORY":NEW
140 DATA72,138,72,152,72,198,250,208,79,169,60,133
150 DATA250,165,252,141,24,212,165,251,141,38,216,141
160 DATA39,216,169,32,141,38,4,141,39,4,165,253
170 DATA72,74,74,74,74,9,48,201,48,240,3,141
180 DATA38,4,104,41,15,9,48,141,39,4,169,0
190 DATA141,24,212,165,253,248,56,233,1,133,253,216
200 DATA201,153,208,12,162,0,134,254,232,134,198,169
210 DATA13,141,119,2,104,168,104,170,104,76,158,2
220 DATA234,234,234,234,234,234,173,20,3,141,159,2
230 DATA173,21,3,141,160,2,165,253,240,11,170,248
240 DATA169,0,24,105,1,202,208,250,216,133,253,169
250 DATA1,133,250,133,254,169,76,141,158,2,120,173
260 DATA254,2,141,20,3,173,255,2,141,21,3,88
270 DATA96,0,0